home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbmcopy.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-02  |  973 b   |  66 lines
  1. PROGRAM bbmcopy;
  2.  
  3. TYPE t = ARRAY[1..16] OF BYTE;
  4.  
  5. VAR
  6.  
  7.   dummy : t;
  8.  
  9.   i   : LONGINT;
  10.   j   : WORD;
  11.   k   : WORD;
  12.   off : LONGINT;
  13.  
  14.   ifile  : FILE OF t;
  15.  
  16.   ofile  : FILE OF t;
  17.  
  18. BEGIN;
  19.   ASSIGN(ifile, 'IN');
  20.   ASSIGN(ofile, 'OUT');
  21.  
  22.  
  23.   RESET(ifile);
  24.   REWRITE(ofile);
  25.  
  26.   off := 254256;
  27.  
  28.   off := off DIV SIZEOF(t);
  29.  
  30.   i := 0;
  31.   j := 0;
  32.  
  33.   WHILE i < off DO
  34.     BEGIN;
  35.       INC(i);
  36.       INC(j , SIZEOF(t));
  37.       IF j > 1000 THEN
  38.         BEGIN;
  39.           WRITELN(i * SIZEOF(t), ' bytes offset');
  40.           j := 0;
  41.         END;
  42.       READ(ifile, dummy);
  43.     END;
  44.  
  45.   WRITELN('Offset complete');
  46.  
  47.   i := 0;
  48.   j := 0;
  49.   WHILE NOT EOF(ifile) DO
  50.     BEGIN;
  51.       INC(j , SIZEOF(t));
  52.       IF j > 1000 THEN
  53.         BEGIN;
  54.           INC(i, j);
  55.           WRITELN(i, ' bytes copied');
  56.           j := 0;
  57.         END;
  58.       READ(ifile, dummy);
  59.       WRITE(ofile, dummy);
  60.     END;
  61.  
  62.   CLOSE(ofile);
  63.   CLOSE(ifile);
  64.  
  65. END.
  66.